home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / network / postit / postsend.bas < prev    next >
Encoding:
BASIC Source File  |  1995-10-26  |  1.3 KB  |  53 lines
  1. Attribute VB_Name = "POSTSEND1"
  2.  
  3. ' yes, global variables (naughty)
  4. Global GlobCmd
  5. Global GlobSound
  6. Global Db As Database
  7.  
  8. ' THIS IS THE LOCATION OF THE MAIN NOTES AND USERS DATABASE - MODIFY IT FOR YOUR OWN USE
  9. Global Const PN_DATABASE = "\\archiveserv\archive\archive\database\numatic\postit\pnotes.mdb"
  10.  
  11. ' This is the name of your network - it is the root node of the address.
  12. Global Const PN_NETWORK = "Numatic Network"
  13.  
  14. ' This is the location of the sound files on your network
  15. Global Const PN_SOUNDFILES = "\\slave.1\clipart\sound files\"
  16.  
  17.  
  18. ' This is the name of the supervisor - change it whoever is your supervisor
  19.  
  20. Global Const PN_SUPERVISOR = "MAT.G"
  21.  
  22.  
  23. ' NOTE :
  24.  
  25. ' see notes for the following
  26. '    DOS Environment variables MUST be set up as follows :
  27.     
  28. '   WINNAME -   Must be set to the machine name ( i.e FRED.PC)
  29.  
  30. '   USERNAME - The User's name (Full)
  31.  
  32. ' wave sound player
  33. Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  34.  
  35.  
  36.  
  37.  
  38. Sub MAIN()
  39.     
  40.     ' we have a user name to find in the list (we are replying in this mode)
  41.     If Command <> "" Then
  42.         
  43.         GlobCmd = Command
  44.         
  45.     End If
  46.     
  47.     ' display form
  48.     Load postit
  49.     postit.Show
  50.     
  51. End Sub
  52.  
  53.